home *** CD-ROM | disk | FTP | other *** search
/ MacWorld UK 2000 March / MW_UK_2000_03.iso / Shareware World / Utilities / Text Processing / Alpha / Tcl / Menus / cvsMenu.tcl < prev    next >
Encoding:
Text File  |  1999-09-07  |  1.2 KB  |  49 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*- (install)
  2.  # ###################################################################
  3.  #  Vince's Additions
  4.  # 
  5.  #  FILE: "cvsMenu.tcl"
  6.  #                                    created: 6/7/98 {10:54:07 pm} 
  7.  #                                last update: 1999-09-06T22:46:50Z 
  8.  #  Author: Vince Darley
  9.  #  E-mail: vince@biosgroup.com
  10.  #    mail: Bios Group
  11.  #          317 Paseo de Peralta, Santa Fe, NM 87501
  12.  #     www: http://www.biosgroup.com/
  13.  #  
  14.  #  Prototype file; doesn't actually do anything useful, but
  15.  #  may at some point be filled in.  Actually the best approach
  16.  #  is probably to design a unified version control system for
  17.  #  Alpha, which can handle the basics of Cvs, Perforce, Voodoo
  18.  #  etc, and then adds specific functionality where each particular
  19.  #  system has it.
  20.  #  
  21.  # ###################################################################
  22.  ##
  23.  
  24. alpha::menu cvsMenu 0.1 "C C++ Java Pasc" Cvs {
  25. } {cvsMenu} {} uninstall {this-file} maintainer {
  26.     "Vince Darley" 
  27. } help {
  28.     Version control using CVS
  29. }
  30.  
  31. namespace eval cvs {}
  32.  
  33. proc cvsMenu {} {}
  34.  
  35. Menu -n Cvs -p cvs::menuProc {
  36.     "lock"
  37.     "commit"
  38.     "(-"
  39.     "unlock"
  40.     "update"
  41. }
  42.  
  43. proc cvs::menuProc {menu item} {
  44.     cvs::$item
  45. }
  46.     
  47.  
  48.  
  49.